home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 August / Macworld (1997-08).dmg / Serious Demos / Crimson Demo / Crimson Demos / Customer File / LocFrmCode < prev    next >
Text File  |  1997-06-17  |  271b  |  15 lines
  1. Procedure LocateForm.OnClose()
  2.         Do LBox.DClick
  3. Return
  4.  
  5. Procedure LBox.DClick()
  6. Local Gash As Integer
  7. Local RecNo As Integer
  8.         RecNo=LBox.GetSelected(1)
  9.         If RecNo>0
  10.                 CurrentRecord=RecNo
  11.                 Gash=Populate_CustForm(CurrentRecord)
  12.         Endif
  13.         LocateForm.HideWindow
  14. Return
  15.